home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2001 December / pcwk12201b.iso / Wersje pelne i specjalne / Ghostscript 7.0 / gs700w32.exe / gs7.00 / lib / stcolor.ps < prev    next >
Text File  |  2000-09-19  |  6KB  |  174 lines
  1. % Copyright (C) 1995 Aladdin Enterprises.  All rights reserved
  2. % 
  3. % This file is part of AFPL Ghostscript.
  4. % 
  5. % AFPL Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author or
  6. % distributor accepts any responsibility for the consequences of using it, or
  7. % for whether it serves any particular purpose or works at all, unless he or
  8. % she says so in writing.  Refer to the Aladdin Free Public License (the
  9. % "License") for full details.
  10. % 
  11. % Every copy of AFPL Ghostscript must include a copy of the License, normally
  12. % in a plain ASCII text file named PUBLIC.  The License grants you the right
  13. % to copy, modify and redistribute AFPL Ghostscript, but only under certain
  14. % conditions described in the License.  Among other things, the License
  15. % requires that the copyright notice and this notice be preserved on all
  16. % copies.
  17.  
  18. % $Id: stcolor.ps,v 1.2 2000/09/19 18:29:11 lpd Exp $
  19. % stcolor.ps
  20. % Epson Stylus-Color Printer-Driver
  21.  
  22. % The purpose of this file is to configure the stcolor-printer driver
  23.  
  24. %
  25. % It is useless and dangerous to interpret the following code with anything
  26. % else than Ghostscript, so this condition is verified first. If this fails
  27. % a message is send to the output. If this message bothers you, remove it,
  28. % but I prefer to know why the device-setup failed.
  29.  
  30. statusdict begin product end
  31. dup (Ghostscript) eq 1 index (Aladdin Ghostscript) eq or
  32. exch (AFPL Ghostscript) eq or{
  33.  
  34. % fetch the current device-parameters this is specific for Ghostscript.
  35.  
  36.   /STCold currentdevice getdeviceprops .dicttomark def
  37.  
  38. % Any Ghostscript-Driver has a Name, verify that the selected device is
  39. % stcolor, otherwise nothing than another message will be produced.
  40.  
  41.   STCold /Name get (stcolor) eq {
  42.  
  43. %
  44. % The main thing this file does, is to establish transfer-functions.
  45. % Here are two predefined arrays for 360x360Dpi and for 720x720DpI.
  46. % If resolution is 360x720 or 720x360 the average is used. You may
  47. % want to define other arrays here.
  48. %
  49.  
  50.      /STCdeftransfer [ 0.0 1.0 ] def
  51.  
  52.      /STCKtransfer360 [
  53.        0.0000 0.0034 0.0185 0.0377 0.0574 0.0769 0.0952 0.1147
  54.        0.1337 0.1540 0.1759 0.1985 0.2209 0.2457 0.2706 0.2949
  55.        0.3209 0.3496 0.3820 0.4145 0.4505 0.4907 0.5344 0.5840
  56.        0.6445 0.7093 0.8154 0.9816 0.9983 0.9988 0.9994 1.0000
  57.      ] def
  58.  
  59.      /STCKtransfer720 [
  60.        0.0000 0.0011 0.0079 0.0151 0.0217 0.0287 0.0354 0.0425
  61.        0.0492 0.0562 0.0633 0.0700 0.0766 0.0835 0.0900 0.0975
  62.        0.1054 0.1147 0.1243 0.1364 0.1489 0.1641 0.1833 0.2012
  63.        0.2217 0.2492 0.2814 0.3139 0.3487 0.3996 0.4527 0.5195
  64.      ] def
  65.  
  66. % compute the resolution
  67.  
  68.      STCold /HWResolution get dup
  69.      0 get exch 1 get mul sqrt /STCdpi exch def
  70.  
  71. % pick the colormodel
  72.      STCold /ProcessColorModel get /STCcolor exch def
  73.  
  74.  
  75.      mark % prepare stack for "putdeviceprops" 
  76.  
  77. % warn for BitsPerPixel=30 with fsrgb
  78.      STCcolor /DeviceRGB eq STCold /BitsPerPixel get 32 eq and 
  79.      {
  80.        (%%[ stcolor.ps: inefficient RGB-setup, recommend BitsPerPixel=24 ]%%\n)
  81.        print
  82.       } if
  83.  
  84. % if the Dithering-Method is default (gscmyk), change it to fscmyk
  85. % this is achieved by pushing a name/value-pair onto the stack
  86. % if the selected algorithm uses another ProcessColorModel, it is necessary
  87. % to change the Value of STCcolor according to the new algorithm.
  88.  
  89.      STCold /Dithering get (gscmyk) eq 
  90.      { 
  91.         /Dithering (hscmyk) % preferred dithering-method
  92.      } if % might be necessary to change STCcolor too
  93.  
  94. %
  95. % select the array according to the resolution
  96. %
  97.      STCdpi 359.0 lt 
  98.      { STCdeftransfer }
  99.      { STCdpi 361.0 lt
  100.        { STCKtransfer360 }
  101.        { STCdpi 719.0 gt
  102.          { STCKtransfer720 }
  103.          {
  104.            STCKtransfer360 length STCKtransfer720 length eq
  105.            {
  106.              0 1 STCKtransfer360 length 1 sub 
  107.              {
  108.                dup dup 
  109.                STCKtransfer360 exch get 
  110.                exch STCKtransfer720 exch get 
  111.                add 2.0 div 
  112.                STCKtransfer360 3 1 roll put
  113.              } for
  114.            }if
  115.            STCKtransfer360
  116.          } ifelse
  117.        }ifelse
  118.      } ifelse
  119.      /STCtransfer exch def
  120.  
  121. %
  122. % Add the arrays. With Version 1.17 and above, it seems to be 
  123. % a good idea, to use the transfer-arrays as coding-arrays too.
  124. %
  125.  
  126. %
  127. % RGB-Model requires inversion of the transfer-arrays
  128. %
  129.      STCcolor /DeviceRGB eq 
  130.      {
  131.         /RGBtransfer STCtransfer length array def
  132.         0 1 STCtransfer length 1 sub
  133.         {
  134.           dup RGBtransfer length 1 sub exch sub exch 
  135.           STCtransfer exch get 1.0 exch sub
  136.           RGBtransfer 3 1 roll put
  137.         } for
  138.  
  139.         /Rtransfer RGBtransfer
  140.         /Gtransfer RGBtransfer
  141.         /Btransfer RGBtransfer
  142.  
  143.         /Rcoding   RGBtransfer
  144.         /Gcoding   RGBtransfer
  145.         /Bcoding   RGBtransfer
  146.  
  147.      }{
  148.  
  149.        /Ctransfer STCtransfer
  150.        /Mtransfer STCtransfer
  151.        /Ytransfer STCtransfer
  152.        /Ktransfer STCtransfer
  153.  
  154.        /Ccoding   STCtransfer
  155.        /Mcoding   STCtransfer
  156.        /Ycoding   STCtransfer
  157.        /Kcoding   STCtransfer
  158.  
  159.      } ifelse
  160.  
  161.      counttomark 0 ne 
  162.         {currentdevice putdeviceprops pop}{cleartomark}ifelse
  163.  
  164. % decativate predefined correction
  165.  
  166.      {} dup dup currenttransfer setcolortransfer
  167.  
  168.   }{
  169.     (%%[ stcolor.ps: currentdevice is not stcolor - ignored ]%%\n) print
  170.   } ifelse
  171. }{
  172.   (%%[ stcolor.ps: not interpreted by AFPL Ghostscript - ignored ]%%\n) print
  173. } ifelse
  174.